home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / METROSTK.cpt / MetroStack / card_4840.txt < prev    next >
Text File  |  1989-04-11  |  8KB  |  342 lines
  1. -- card: 4840 from stack: in
  2. -- bmap block id: 5107
  3. -- flags: 0000
  4. -- background id: 2640
  5. -- name: north
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global boxText
  9.   put boxText into bg fld 1
  10. end openCard
  11.  
  12. on closeCard
  13.   hide cd fld 1
  14. end closeCard
  15.  
  16. on arrowKey which
  17.   if which is "down" then send mouseUp to cd btn 1
  18. end arrowKey
  19.  
  20.  
  21.  
  22. -- part 4 (button)
  23. -- low flags: 00
  24. -- high flags: 2000
  25. -- rect: left=454 top=253 right=273 bottom=474
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 2730 / 2730
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: South
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   set cursor to watch
  37.   visual dissolve fast
  38.   go cd "central"
  39. end mouseUp
  40.  
  41.  
  42.  
  43. -- part 6 (button)
  44. -- low flags: 00
  45. -- high flags: 0000
  46. -- rect: left=435 top=234 right=254 bottom=455
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 29001 / 29001
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: West
  55.  
  56.  
  57. -- part 7 (button)
  58. -- low flags: 00
  59. -- high flags: 0000
  60. -- rect: left=454 top=215 right=235 bottom=474
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 29003 / 29003
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: North
  69.  
  70.  
  71. -- part 8 (button)
  72. -- low flags: 00
  73. -- high flags: 0000
  74. -- rect: left=473 top=234 right=254 bottom=493
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 29002 / 29002
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: East
  83.  
  84.  
  85. -- part 9 (button)
  86. -- low flags: 00
  87. -- high flags: 0000
  88. -- rect: left=305 top=251 right=263 bottom=317
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 1
  92. -- font id: 0
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: 52Takoma
  97. ----- HyperTalk script -----
  98. on mouseUp
  99.   global station,stationNum,done,startEnd,tripOn,infoOn
  100.   if infoOn + tripOn = 0 then
  101.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  102.     exit mouseUp
  103.   end if
  104.   put 52 into foo
  105.   put the short name of me into station
  106.   SetupTrip foo
  107. end mouseUp
  108.  
  109.  
  110.  
  111. -- part 10 (button)
  112. -- low flags: 00
  113. -- high flags: 0000
  114. -- rect: left=266 top=184 right=196 bottom=278
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: 49Silver Spring
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   global station,stationNum,done,startEnd,tripOn,infoOn
  126.   if infoOn + tripOn = 0 then
  127.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  128.     exit mouseUp
  129.   end if
  130.   put 49 into foo
  131.   put the short name of me into station
  132.   SetupTrip foo
  133. end mouseUp
  134.  
  135.  
  136.  
  137. -- part 11 (button)
  138. -- low flags: 00
  139. -- high flags: 0000
  140. -- rect: left=163 top=230 right=242 bottom=175
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: 6Bethesda
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   global station,stationNum,done,startEnd,tripOn,infoOn
  152.   if infoOn + tripOn = 0 then
  153.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  154.     exit mouseUp
  155.   end if
  156.   put 6 into foo
  157.   put the short name of me into station
  158.   SetupTrip foo
  159. end mouseUp
  160.  
  161.  
  162.  
  163. -- part 12 (button)
  164. -- low flags: 00
  165. -- high flags: 0000
  166. -- rect: left=163 top=195 right=207 bottom=175
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 0 / 0
  169. -- text alignment: 1
  170. -- font id: 0
  171. -- text size: 12
  172. -- style flags: 0
  173. -- line height: 16
  174. -- part name: 37Medical Center
  175. ----- HyperTalk script -----
  176. on mouseUp
  177.   global station,stationNum,done,startEnd,tripOn,infoOn
  178.   if infoOn + tripOn = 0 then
  179.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  180.     exit mouseUp
  181.   end if
  182.   put 37 into foo
  183.   put the short name of me into station
  184.   SetupTrip foo
  185. end mouseUp
  186.  
  187.  
  188.  
  189. -- part 13 (button)
  190. -- low flags: 00
  191. -- high flags: 0000
  192. -- rect: left=163 top=163 right=175 bottom=175
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 1
  196. -- font id: 0
  197. -- text size: 12
  198. -- style flags: 0
  199. -- line height: 16
  200. -- part name: 30Grosvenor
  201. ----- HyperTalk script -----
  202. on mouseUp
  203.   global station,stationNum,done,startEnd,tripOn,infoOn
  204.   if infoOn + tripOn = 0 then
  205.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  206.     exit mouseUp
  207.   end if
  208.   put 30 into foo
  209.   put the short name of me into station
  210.   SetupTrip foo
  211. end mouseUp
  212.  
  213.  
  214.  
  215. -- part 14 (button)
  216. -- low flags: 00
  217. -- high flags: 0000
  218. -- rect: left=162 top=136 right=148 bottom=174
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 1
  222. -- font id: 0
  223. -- text size: 12
  224. -- style flags: 0
  225. -- line height: 16
  226. -- part name: 60White Flint
  227. ----- HyperTalk script -----
  228. on mouseUp
  229.   global station,stationNum,done,startEnd,tripOn,infoOn
  230.   if infoOn + tripOn = 0 then
  231.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  232.     exit mouseUp
  233.   end if
  234.   put 60 into foo
  235.   put the short name of me into station
  236.   SetupTrip foo
  237. end mouseUp
  238.  
  239.  
  240.  
  241. -- part 15 (button)
  242. -- low flags: 00
  243. -- high flags: 0000
  244. -- rect: left=157 top=107 right=119 bottom=169
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 0 / 0
  247. -- text alignment: 1
  248. -- font id: 0
  249. -- text size: 12
  250. -- style flags: 0
  251. -- line height: 16
  252. -- part name: 54Twinbrook
  253. ----- HyperTalk script -----
  254. on mouseUp
  255.   global station,stationNum,done,startEnd,tripOn,infoOn
  256.   if infoOn + tripOn = 0 then
  257.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  258.     exit mouseUp
  259.   end if
  260.   put 54 into foo
  261.   put the short name of me into station
  262.   SetupTrip foo
  263. end mouseUp
  264.  
  265.  
  266.  
  267. -- part 16 (button)
  268. -- low flags: 00
  269. -- high flags: 0000
  270. -- rect: left=139 top=78 right=90 bottom=151
  271. -- title width / last selected line: 0
  272. -- icon id / first selected line: 0 / 0
  273. -- text alignment: 1
  274. -- font id: 0
  275. -- text size: 12
  276. -- style flags: 0
  277. -- line height: 16
  278. -- part name: 46Rockville
  279. ----- HyperTalk script -----
  280. on mouseUp
  281.   global station,stationNum,done,startEnd,tripOn,infoOn
  282.   if infoOn + tripOn = 0 then
  283.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  284.     exit mouseUp
  285.   end if
  286.   put 46 into foo
  287.   put the short name of me into station
  288.   SetupTrip foo
  289. end mouseUp
  290.  
  291.  
  292.  
  293. -- part 17 (button)
  294. -- low flags: 00
  295. -- high flags: 0000
  296. -- rect: left=118 top=45 right=57 bottom=130
  297. -- title width / last selected line: 0
  298. -- icon id / first selected line: 0 / 0
  299. -- text alignment: 1
  300. -- font id: 0
  301. -- text size: 12
  302. -- style flags: 0
  303. -- line height: 16
  304. -- part name: 48Shady Grove
  305. ----- HyperTalk script -----
  306. on mouseUp
  307.   global station,stationNum,done,startEnd,tripOn,infoOn
  308.   if infoOn + tripOn = 0 then
  309.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  310.     exit mouseUp
  311.   end if
  312.   put 17 into foo
  313.   put the short name of me into station
  314.   SetupTrip foo
  315. end mouseUp
  316.  
  317.  
  318.  
  319. -- part 18 (field)
  320. -- low flags: 81
  321. -- high flags: 2004
  322. -- rect: left=142 top=99 right=223 bottom=366
  323. -- title width / last selected line: 0
  324. -- icon id / first selected line: 0 / 0
  325. -- text alignment: 1
  326. -- font id: 0
  327. -- text size: 12
  328. -- style flags: 0
  329. -- line height: 16
  330. -- part name: 
  331. ----- HyperTalk script -----
  332. on mouseUp
  333.   hide me
  334.   put empty into me
  335. end mouseUp
  336.  
  337.  
  338.  
  339. -- part contents for background part 10
  340. ----- text -----
  341. Click on a station to get info
  342. (or click this box to cancel)